(defun c:mvsta ( / sta_ss this_static)
  (setq sta_ss (ssget '((-4 . "<OR")(2 . "STA_TIC")(-4 . "<AND")(0 . "TEXT")(-4 . "<OR")(1 . "####+##")(1 . "###+##")(1 . "##+##")(1 . "#+##")(-4 . "OR>")(-4 . "AND>")(-4 . "OR>"))))
  (IF sta_ss
    (PROGN
      (SETQ stacnt 0)
      (WHILE (AND (NOT this_static)(< stacnt (SSLENGTH sta_ss)))
        (IF (EQ "INSERT" (CDR (ASSOC 0 (ENTGET (SSNAME sta_ss stacnt)))))
          (SETQ this_static (SSNAME sta_ss stacnt))
        )
        (SETQ stacnt (1+ stacnt))
      )
      (IF this_static
        (PROGN
          (COMMAND "move" sta_ss "" (CDR (ASSOC 10 (ENTGET this_static))) "app")
        )
      )
    )
  )
)

